home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
dos
/
basic
/
benttext.bas
< prev
next >
Wrap
BASIC Source File
|
1986-08-14
|
744b
|
23 lines
10 'BENTTEXT.BAS -- SHOWS THAT CHARACTERS IN GRAPHICS MODE ARE
20 'TREATED THE SAME EXACT WAY AS ANY OTHER PIXEL GRAPHICS.
40 SCREEN 1:CLS:DEFINT A-Z
50 '
60 ' *** FIRST GET THE LARGER CHARACTERS ***
70 '
80 DIM O(20),P(20),S(20),Y(20),D(20),A(20),I(20)
90 LOCATE 1,1:PRINT "OAS":GET (0,0)-(7,7),O
100 GET (8,0)-(15,7),A:GET (16,0)-(23,7),S
120 '
130 ' *** NOW GET THE SMALL ONES ***
140 '
150 SCREEN 2:LOCATE 1,1:PRINT "YDPI"
160 GET (0,0)-(7,7),Y:GET (8,0)-(15,7),D
170 GET (16,0)-(23,7),P:GET (24,0)-(31,7),I
180 '
190 ' *** DISPLAY THEM ***
200 '
210 CLS:PUT (102,80),O:PUT (115,82),O
220 PUT (132,84),P:PUT (144,85),S:PUT (160,84),Y
230 PUT (118,99),D:PUT (135,98),A:PUT (150,97),I
240 PUT (167,96),S:PUT (190,94),Y